(Reset)
@NullResponse @SetVar[SpankingCount]=[0]
@SystemMessage #MxChat2 #Fetch #ChooseSpankingImplement #MxChat @Wait(12)
@SystemMessage #MxChat2 #SlaveName @RT(get over my lap and remember to count out loud..,get over my lap,get over my lap,Prepare yourself and get over my lap,Over my lap!) #MxLap @Wait(12)
(Spanking)
@NullResponse @If[SpankingCount]>=[StrokesPerRound]Then(End1)
@NullResponse @Goto(10,20,30,40,50)
(10)
@SystemMessage #MxChat2 #SpankPlacingRight10 #MxOverLap 
@SystemMessage #MxChat2 #SpankPlacingLeft10 #MxOverLap @Goto(Spanking)
(20)
@SystemMessage #MxChat2 #SpankPlacingRight20 #MxOverLap 
@SystemMessage #MxChat2 #SpankPlacingLeft20 #MxOverLap @Goto(Spanking)
(30)
@SystemMessage #MxChat2 #SpankPlacingRight30 #MxOverLap 
@SystemMessage #MxChat2 #SpankPlacingLeft30 #MxOverLap @Goto(Spanking)
(40)
@SystemMessage #MxChat2 #SpankPlacingRight40 #MxOverLap 
@SystemMessage #MxChat2 #SpankPlacingLeft40 #MxOverLap @Goto(Spanking)
(50)
@SystemMessage #MxChat2 #SpankPlacingRight50 #MxOverLap 
@SystemMessage #MxChat2 #SpankPlacingLeft50 #MxOverLap @Goto(Spanking)
(End1)
@SystemMessage #MxChat2 How many strokes were that slave? #MxChat @InputVar[Guess]
@Variable[Guess]=[SpankingCount] @SystemMessage #MxChat2 Correct! #MxChat @Goto(End2)
@SystemMessage #MxChat2 Wrong! #MxChat
@SystemMessage #MxChat2 The number was @ShowVar[SpankingCount] #MxChat #MeritChangeNMedium @Chance25(End3)
@SystemMessage #MxChat2 Since you've failed to count I guess we're starting over! #MxChat @Goto(Reset)
(End2)
@NullResponse @ChangeVar[TotalSpanking]=[TotalSpanking]+[SpankingCount]
@End
(End3)
@SystemMessage #MxChat2 I'm gonna be merciful this time #MxChat @ChangeVar[TotalSpanking]=[TotalSpanking]+[SpankingCount]
@SystemMessage #MxChat2 Dont expect me to show kindness again! #MxChat
@End